home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Install-Dev / old_ < prev    next >
Text File  |  1998-08-31  |  748b  |  22 lines
  1.  
  2. (set lang_1 "english")
  3. (set lang_2 "español")
  4. (set lang_3 "hrvatski")
  5. (set lang_4 "italiano")
  6.  
  7.  
  8.  
  9. ;**** IF THE USER CLICKED THE ENGLISH INSTALLER ICON THEN @LANGUAGE WILL BE SET TO "reallyenglish" for english ****
  10. ;**** Therefore if @language="english" then the installer didn't set the language                              ****
  11. (if (= @language "english") 
  12.   (
  13.     (set lang (askchoice (prompt "For some reason the \"@languge\" flag was not set.\nPlease pick a language.")
  14.                          (help   "Please pick a language")
  15.                          (choices lang_1 lang_2 lang_3 lang_4)
  16.                          (default 0)
  17.     )         )
  18.   
  19.     (set @language (select lang lang_1 lang_2 lang_3 lang_4))
  20.   )
  21. )                           
  22.